home *** CD-ROM | disk | FTP | other *** search
/ More Anime Pin-Up Beauties / More Anime Pin-Up Beauties.iso / pc / east / gpx05.dir / 00197_Script_197 < prev    next >
Text File  |  1998-06-22  |  2KB  |  74 lines
  1. -- For NAME
  2. -- ++++++++++++++++++++++++++++++++ initialize of NAME INPUT
  3. on initNAM
  4.     global gPathItem
  5.     global gNAMcur
  6.  
  7.     cursor 4
  8.  
  9.     put 0 into gNAMcur
  10.  
  11.     aiffSound(2)
  12.  
  13.     chgScene("PL-000", the frame + 1, gPathItem & "AG200")
  14.  
  15.     upDateStage
  16.     cursor -1
  17.  
  18. -- ++++++++++++++++++++++++++++++++ compute CHAR number
  19. on charNum
  20.     put the left of sprite clickOn() into L
  21.     put the top of sprite clickOn() into T
  22.     put (mouseH() - L) / 16 into hBlock
  23.     put (mouseV() - T) / 16 into vBlock
  24.  
  25.     put ((vBlock * 16) + hBlock) into vMat
  26.     return(vMat)
  27.  
  28. -- ++++++++++++++++++++++++++++++++ set NAM1..5 from Chars
  29. on setNAM vN
  30.     global gNAMcur
  31.  
  32.     if gNAMcur > 7 then
  33.         exit
  34.     end if
  35.  
  36.     if vN > 79 then
  37.         exit
  38.     end if
  39.  
  40.     put (the number of cast "NAM1") + gNAMcur into  vCnum
  41.     put (the number of cast "C01") + vN into vPnum
  42.     set the picture of cast vCnum to ( the picture of cast vPnum)
  43.  
  44.     put gNAMcur + 1 into gNAMcur
  45.  
  46. -- ++++++++++++++++++++++++++++++++ BackSpace (delete)
  47. on delNAM
  48.     global gNAMcur
  49.  
  50.     if gNAMcur < 1 then
  51.         exit
  52.     end if
  53.  
  54.     clrPicture("NAM" & string(gNAMcur))
  55.  
  56.     put gNAMcur - 1 into gNAMcur
  57.  
  58. -- ++++++++++++++++++++++++++++++++ Clear
  59. on clrNAM
  60.     global gNAMcur
  61.  
  62.     cursor 4
  63.     repeat while gNAMcur > 0
  64.         clrPicture("NAM" & string(gNAMcur))
  65.         put gNAMcur - 1 into gNAMcur
  66.     end repeat
  67.     cursor -1
  68.  
  69. -- ++++++++++++++++++++++++++++++++ ENT
  70. on okNAM
  71.  
  72.     go to frame "000"
  73.  
  74.